home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / STUB.DIR / 00003_Script_3 < prev   
Text File  |  1995-11-04  |  323b  |  18 lines
  1. on resetAll
  2.   put the freebytes
  3.   
  4.   set c = count(the windowList)
  5.   repeat with i = 1 to c
  6.     set w = getAt(the windowList, 1) -- keep trashing the first window
  7.     forget(w)
  8.   end repeat
  9.   
  10.   
  11.   clearGlobals
  12.   --unloadCast 1,1000
  13.   if the machineType <> 256 then maxmem()
  14.   
  15.   put the freebytes
  16.   
  17. end
  18.